10 IFPEEK(49234)<>ASC("S")THENLOAD" SPRITE*",8,1
20 SYS49152:POKE53280,11:POKE53281,12:POKE646,0
100 !GR1;GN0;GE;GX145;GY75;GI;GP1;GC11
101 !DS 255,255,255,255,255,255,255,255
102 X=0:Y=0
103 GOSUB1000:!DM0:!DD X,Y
104 GETA$:IFA$=""THEN:!JS:GOTO104
105 IFA$=""THENIFY<167THEN:!DM1:!DD X,Y:Y=Y+1
106 IFA$="[145]"THENIFY>0THEN:!DM1:!DD X,Y:Y=Y-1
107 IFA$=""THENIFX<95THEN:!DM1:!DD X,Y:X=X+1
108 IFA$="[157]"THENIFX>0THEN:!DM1:!DD X,Y:X=X-1
109 IFA$=CHR$(13)THEN150
110 IFA$="S"THEN200
111 IFA$="L"THEN300
119 GOTO103
150 GOSUB1002:!DM0:!DD X,Y
151 GETA$:IFA$=""THEN:!JS:GOTO151
154 IFA$=""THENIFY<167THENY=Y+1
155 IFA$="[145]"THENIFY>0THENY=Y-1
156 IFA$=""THENIFX<95THENX=X+1
157 IFA$="[157]"THENIFX>0THENX=X-1
158 IFA$=CHR$(13)THEN103
159 IFA$="S"THEN200
160 IFA$="L"THEN300
169 GOTO150
200 !GR0
201 PRINT"[147]"
202 INPUT" NAME ";N$
203 !GS 0,"@:"+N$,8
204 !GR1:GOTO103
300 !GR0;GE
301 PRINT"[147]"
302 INPUT" NAME ";N$
303 !GL 0,N$,8
304 !GR1;GN0:GOTO103
1000 !TP1,1,"CLEAR - MODE !"
1001 GOSUB1003:RETURN
1002 !TP1,1,"SET - MODE !  "
1003 !TP1,3,"X :   [157][157][157]";X
1004 !TP1,4,"Y :[160][160][160][157][157][157]";Y
1005 RETURN